
TRIGGER PROCEDURE FOR CREATE OF PTS_DET.

{mfdeclre.i }

HK:
do:
    if not can-find ( first dt_mstr where dt_table = "pts_det" and dt_type = "ADD" ) then leave HK.

    for first dt_mstr no-lock where dt_table = "pts_det" and dt_type = "ADD" :
    
    	run CreateDthist(input dt_table, input dt_field, input dt_type, input "", input "", 
        	input recid(pts_det), input pts_det.pts_part, input pts_det.pts_par, input pts_det.pts_sub_part, input "",
        	input "", input "", input "", input "") .
        	
    end.
end.

{hkdttrans.i}
